Select Code to Download

#! perl
use strict;
...
    say get_unique    ( [ $hash1{$key} // [], $hash2{$key} // [] ] );
    say get_complement( [ $hash1{$key} // [], $hash2{$key} // [] ] );
}

13:23 >perl 1000_SoPW.pl
2,4
5,7

13:23 >