Stock in perl

@s=`ls`;
while ($line=pop(@s))
{
print $line."\n";
sleep 3;
}