while (<FILE>){
 chomp;
 my %store;@store{Id Name Username Password ...} = split /    /;

 $store{km} = ...

 push @stores, \%store;
}

foreach (sort {$a->{km} <=> $b->{km}} @stores) {
  print "...."
}