while(<$HANDLE>) {
    chomp;
    s/^\s+//; # remove leading spaces
    my ($freq, $data) = split /\s+/, $_, 2;
    $inputdata->{$freq}->[$filenumber] = $data;
}