use Data::Dumper;
my @array = ( 0, 1, 2, 3, 4, 5 );

my %uniq;
@uniq{@array[1..$#array]} = ();

print Dumper \%uniq;