#!/usr/bin/perl -w
my @list=(4,3,2,5,1);
 # db access here for more data.
 # the numbers that follow were real ugly in the original
 # code, like $sql->return->[0][2] and suchlike...
push @list, 45, 6, 24, 43, 9, # Comma not semicolon
map {$_ *= 2} @list;
print "@list\n";
# prints:
# 8 6 4 10 2 45 6 24 43 9 4 3 2 5 1