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

my $datafile = "/path/to/shows.data";
open GETSPL, "< $datafile" or die "Cannot open $datafile: $!";
my @rows = <GETSPL>;
close(GETSPL) or die $!;

delete @rows[5,3,0];
print grep {defined} @rows;