my @arr = (11, 22, 33, 44);
open my $FH, '<', \("@arr");
print while <$FH>;
[download]