foreach( @results ) {
    $record = $_;
     # strip the beginning key
    $record =~ s/^\d+//;
    print $record;
}