open(my $file, "<", "girls_lpz.txt") or die "Error in open: $!";