• Put your 15 integers into an array
• use shuffle from List::Util to shuffle the array
• Take the first 5 elements of the array using a slice

use List::Util 'shuffle';

my @numbers = 1 .. 15; # could be any list
@numbers = shuffle @numbers;
print "@numbers[0 .. 4]";
[download]