#!/usr/bin/perl -w
use strict;

use Tie::File;
use List::Util qw( shuffle );

tie my @file, 'Tie::File', $ARGV[0] or die "$ARGV[0]: $!";

print $file[$_], "\n" for shuffle 0 .. $#file;