That makes much more sense, I cleaned it up and think I have a better grasp on what I was doing.
One more small question, if I define the variable before reading it into an array can I print it out of the block?
Thank you for what seems to be your infinite patients when passing along your knowledge. I appreciate it more than you will ever know.

#!/usr/bin/perl

use warnings;
use strict;

my @l;
open (FH3, ">lessons.txt");
        print FH3 "Perl*Lesson1\n";
        print FH3 "Perl*Lesson2\n";
        print FH3 "Perl*Lesson3\n";
        print FH3 "Java*Lesson1\n";
        print FH3 "Java*Lesson2\n";
        print FH3 "Java*Lesson3\n";
        print FH3 "PHP*Lesson1\n";
        print FH3 "PHP*Lesson2\n";
        print FH3 "PHP*Lesson3\n";
close (FH3);


my $l="lessons.txt";
open FH3, "<", $l or die "$l: $!\n";
@l=<FH3>;
for my $line (@l){
    chomp $line;
        my ($part1, $part2) = split /\*/,$line;
    print "$part1 $part2\n";
}
[download]