print Dumper @{ [ map {"<$_>"} qw/a b c/ ] };
__END__
$VAR1 = '<a>';
$VAR2 = '<b>';
$VAR3 = '<c>';