Data Type Perl

$string = "Hello";
$ref = \substr($a, 0, 1);
print $ref;