Two Perl script code (array application and say usage)

#!/usr/bin/perl -w
use 5.010;
greet( 'Fred');
greet( 'barney');
sub greet {
  state $last_person;
  my $name = shift;
  print "Hi $name!";
  if ( defined $last_person ) {
    print "$last_person is also here!\n";
    }
    else {
        print "You are the first one here!\n";
        }
        $last_person = $name;
        }
greet( 'Fred' );
greet( 'barney' );
greet( 'wilma' );
greet( 'Betty' );
sub greet {
    state @names;
    my $name = shift;
    print "Hi $name!";
    if ( @names ) {
        print "I've seen: @names\n";
        }
    else {
        print "You are the first one here!\n";
        }
        push @names, $name;
        }