use strict;
use warnings;

my %numbers;
open my $in,  "infile"   or die $!;
open my $out, ">outfile" or die $!;

while (<$in>) {
    chomp;
    if (not exists $numbers{$_}) {
        print $out "$_\n";
        $numbers{$_}++;
    }
}