print $businesses{$1} $_;

    #yields: 
    #Scalar found where operator expected at C:\t.pl line 36, near "} $_"
    #(Missing operator before  $_?)