将CSV解析为sub中的Perl哈希值，并返回传递给该子域的值

I try to parse a csv into hash in perl in a sub, then return value of key passed to sub as an argument. CSV file is like:I try to parse a csv into hash in perl in a sub