Getting these loop errors in basic Perl

Question

I have the following code in Perl. I am very new to the language:

#!/usr/bin/perl

use strict;
use warnings;

my $date = $ARGV[0];

my $symbols = ('A', 'B', 'C');


foreach $symbol (%symbols)
{
    my $print = "$symbol";
    print "$print";

}

Getting:

Useless use of a constant in void context at (line of %symbols)
and
Global symbol "$symbol requires explicit package name at ..."
and
Global symbol "%symbols" require explicit package. name at ..."

Answer 1

You are using an Hash when an Array is all that is needed.

 #!/usr/bin/perl


    use strict;
    use warnings;

    my $date = $ARGV[0];

    my @symbols = ('A', 'B', 'C');


    foreach my $symbol (@symbols)
    {
        print $symbol;

    }

Answer 2

1) Your $symbols should be @symbols, since it's an array. Later in the foreach, %symbols should be @symbols.

2) The $symbol is not declared. Say foreach my $symbol... instead.