Well, if you really need just the previous element you can go with

my $lline;
foreach my $line (@arr) {
   ## stuff goes here;
   $lline = $line;
}
[download]