use List::Util qw( shuffle );
my ($name1, $name2) = shuffle @inputsname;