A hackrf_sweep sorter script

hackrf_sweep_sorter.pl

#!/usr/bin/perl
my %powers;
while (my $line = <STDIN>) {
     chomp($line);
     ( $date, $time, $fstart, $fstop, $fwidth, $unknown, @rest ) = split(/, /, $line);
     foreach $power (@rest) {
       $powerfloat = 0.0 + $power;
       if(!$powers{$powerfloat}) {
         $powers{$powerfloat} = [];
       }
       push @{ $powers{$powerfloat} }, $line;
     }
}
@unsorted_powers = keys %powers;
@sorted_powers = sort { $b <=> $a } @unsorted_powers;
$lines = 0;
foreach $power (@sorted_powers) {
  foreach $line (@{ $powers{$power} }) {
    ( $date, $time, $fstart, $fstop, $fwidth, $unknown, @rest ) = split(/, /, $line);
    my $count = 0;
    foreach $step (@rest) {
      if($step == $power) {
        $freq = (0 + $fstart) + $count * (0 + $fwidth);
        print "$lines $power $freq\n";
      }
      $count+=1;
    }
  }
  $lines+=1;
  if($lines >= 10) {
    exit;
  }
}