use List::Util qw( shuffle );
my @picks = (shuffle 1..15)[0..4];