my $randData = do{ seek FILE, $positions[rand @positions], 0; <FILE>; }