Help for this page
elsif ( $line =~ /\^+/xms ) { push @all, @temp2; @temp2 = (); }
$VAR1 = { 'mus09r' => [ ... ] ] };