#!/usr/bin/perl -w
use strict;
my $scalar= ( 1, 2, 3 );
sub t
{
    return( 1, 2, 3 );
}
$scalar= t();
__END__
Useless use of a constant in void context at - line 3.