sub exractSongTitlesFromCueFile{
	my ($cue_file_to_parse) = @_;
	my @album_info;
	my $w = 0;
	open(CUEFILEFOUND, $cue_file_found) || die "Error 003: Could not open cue file named: $cue_file_found! $!\n";
	while(<CUEFILEFOUND>){
		if($_ =~ /\s+TITLE "(.*)".*/){
			$album_info[$w] = $1 || die "Error 004: Could assign song title to array! $!\n";
#			print "$1\n";
			$w++ || die "Error 005: Could not increment array pointer $!\n";
		}
	}
	close(CUEFILEFOUND);
	return (@album_info);
}
</code

and running the script, would give me this output:

<code>
Error 005: Could not increment array pointer Inappropriate ioctl for device