sub lastlines { return map { $_[-1] } @_; } # or, w/o using a sub: @last = ($a[-1], $b[-1], $c[-1]);