my %sizes = @symbolsizes;
[download]

The map callback never gets called since you didn't pass any list to transform, so map returns nothing.

You could create the desired list of two elements as follows:

my %sizes = ( $symbolsizes[0] => $symbolsizes[1] );
[download]

But really, all you need is the following:

my %sizes = @symbolsizes;
[download]

PS — The language is called "Perl", not "PERL".

Thanks. This seems to be working. Now I am not able to print the values. The following code works:

print "The size for $symbolsizes[0] is $sizes{$symbolsizes[0]}";
[download]

But when I specify the name, it doesnt work. And this code is of no use if it can't print the values when the function name is specified. Please help.

print "The size for function is $sizes{function}";
[download]

Assume function to be an element of the array symbolsizes.

Then $symbolsizes[0] doesn't contains function. Perhaps it contains a trailing newline that you didn't remove using chomp?

@arr=(1,2,3,4,5,6,7,8,9,10);
%hsh= ();
$i=0;
while($i<10)
{
 $hsh{$arr[$i]}=$arr[$i+1];
 $i=$i+2;
}
while ( my ($key, $value) = each(%hsh) ) {
        print "$key => $value\n";
    }

[download]

1 => 2
3 => 4
7 => 8
9 => 10
5 => 6
[download]

use Modern::Perl;

my %sizes = ('function' => 100, 'another function' => 200);

say "The size of function is $sizes{'function'}";
[download]

The size of function is 100
[download]