Select Code to Download

use Sort::Maker;
print make_sorter(qw/plain string substr($_,10)/)->(<DATA>);
...
vmk031    2013-07-24 10:27:36
vmk032    2013-07-24 11:27:38
vmk032    2013-07-24 11:27:38

sort {
    do{
...
    $left cmp $right
    }
} @_;

return  map $_->[0],
    sort {$a->[1] cmp $b->[1]}
    map [ $_,
        do{ my ($val) = substr($_,10) ; $val }
    ], @_  ;