The List::Util module provides a shuffle function which implements the Fisher-Yates shuffle.

use List::Util qw(shuffle);

my @data = (0..51);

my @cards = shuffle @data;
[download]