$ perl -le " use Data::Dumper; @f = qw( 1 ; 2 ; 3 ); print Dumper( \@f ); print @f; "
$VAR1 = [
          '1',
          ';',
          '2',
          ';',
          '3'
        ];

1;2;3