my $input = shift;
if($input eq $scalar)
....