#! /usr/bin/perl

use strict;
use warnings;

my $vorgegeben = $ARGV[0];

my @ar=(4,1,0,9,6,7,4,0,2);
my %hash;
foreach my $i(@ar){
  push(@{$hash{abs(($vorgegeben - $i))}},$i);
}
my $key = (sort{$a <=> $b}keys(%hash))[0];
print $_,"\n" for(@{$hash{$key}});