my $status = shift @cells; my $end = pop @cells; my $start = pop @cells; print "$_" for ($status, join(' ', @cells), $start, $end);