$ perl585 -le '$x=99; my $x = $_ for 1..3; print $x' $