#!/usr/bin/perl
use strict;
use warnings;

for  (1 .. 4 ){
  open THIS,'>',\my $variable || die $!;
  print THIS "$_\n" || die $!;
  close(THIS) || die $!;
  print $variable || die $!;
};
__END__
1
Use of uninitialized value in open at ./foo.pl line 6.
2
Use of uninitialized value in open at ./foo.pl line 6.
3
Use of uninitialized value in open at ./foo.pl line 6.
4