#! perl -slw
use strict;

open my $fh, '<', $ARGV[ 0 ] or die "Couldn't open $ARGV[ 0 ]: $!";

my @records;
push @records, join '', map{ scalar <$fh> } 1 .. 6 
    while not eof( $fh );

print stderr 'Record count: ', scalar @records;

my @sorted = map { 
	substr $_, 5
} sort map{ 
	m[skew: ([\d.]{5})];
	$_ = $1 . $_
} @records;

chomp @sorted;

print for @sorted;