Shell Programming and Scripting

#!/usr/bin/perl
use strict;
use warnings;
use Tie::File;

my $input = "file1";
my $output = "file2";

tie my @input_array, 'Tie::File', $input or die $!;
tie my @output_array, 'Tie::File', $output or die $!;

foreach my $line (@input_array) {
        if ($line =~ /^#/) {
        push @output_array, $line;
        $line =~ s/.*//;
        }
}

awk ' /^#/  {print >"newfile"; next}  {print} ' inputfile > anotherfile