figify appears to return an array of results in list context (which print provides). Try print scalar $font... or print join($delim, $font...) instead.

You could see this with...

...
{
    my @lines = $font->figify...;
    my $lines = $font->figify...;
    use DDP;
    p @lines;
    p $lines;
}
...
[download]

at the appropriate place in your code.