use strict;
use warnings;

sub print_context {
    say wantarray ? 'list' : 'scalar';
}

my $x   = print_context;
my ($y) = print_context;
__END__
scalar
list

##</code><code>##

my  $time1  = localtime;
my ($time2) = localtime; 

my  $rev1   = reverse $some_string;
my ($rev2)  = reverse $some_string;