use strict;
use warnings;

sub print_context {
   my $c = ( wantarray()
      ? 'List'
      : ( defined(wantarray())
             ? 'Scalar'
             : 'Void'
        )
   );

   print("$c\n");
}

my $r1 = ( print_context(), print_context() );
# Void
# Scalar