use strict; my $set = ; print $set,"\n";