#!/usr/bin/perl

use strict;
use warnings;

my @data = (q~Name von Firma1 1234567 08001234567 12~,
            q~Name von Firma22 123 08001234589 32~,
            q~Name Firma3 12345 080012343 07~);
           
my @sorted = map{$_->[0]}sort{$a->[1]->[-1] <=> $b->[1]->[-1]}map{[$_,[split(/ /,$_)]]}@data;

print $_,"\n" for(@sorted);