c:\@Work\Perl>perl -wMstrict -le
"print qq{Enter a array of any number of elements};
 ;;
 my @x = <>;
 printf 'A:';  printf qq{  '$_'} for @x;
 print '';
 ;;
 chomp @x;
 printf 'B:';  printf qq{  '$_'} for @x;
"
Enter a array of any number of elements
1 22 333 Q 444
55 66
77
^Z
A:  '1 22 333 Q 444
'  '55 66
'  '77
'
B:  '1 22 333 Q 444'  '55 66'  '77'