Write only Perl code

gistfile1.txt

sub flatten_header {
  my $msg = shift;

  for (my $i = 0; $i <= scalar(@{$msg}) ; $i++) {
    last if @$msg[$i] =~ /^\n/;
    if (@$msg[$i] =~ /^\s+(.*)/) {
      chomp @$msg[$i-1];
      @$msg[$i-1] .= " $1\n";
      splice (@$msg, $i--, 1);
    }
  }
}