my %comments; #comments keyed by line number
open FH, "yourFile" or die $!;
while (<FH>) { $comments{$.} = $_ if m/^#/ }
close FH;