Select Code to Download

#!/usr/bin/perl
use warnings; use strict;
...

  $seen{$a} = 1;
}

8 iteratations: I've already seen ARRAY(0x180bc0c) at at1.pl line 9.

$seen{$a} = $a; # capture the reference