#!/usr/bin/perl

open (FILE,"ipsvisiting.txt");
while (<FILE>) {
        $j[$i++] = $_;
}
close FILE;

sub nummer {
        $a <=> $b;
}

@sorted = sort nummer @j;
foreach $s (@sorted) {
        print $s;
}