#!/usr/bin/perl

use warnings;
use strict;

my $l;
my @l;

open (FH3, ">lessons.txt");
print FH3 "Perl*Lesson1\nPerl*Lesson2\nPerl*Lesson3\nJava*Lesson1\nJava*Lesson2\nJava*Lesson3\nPHP*Lesson1\nPHP*Lesson2\nPHP*Lesson3\n";

$l="lessons.txt";
open(FH3, $l) || die("Could not open file!");
@l=<FH3>;
print "@l";