Besides miyagawa's and Abigail-II's points which I second, some minor nits:

You should SELECT specific columns rather than a broad sweeping *.

print(join(", ", @$record[0..3]), "\n"); is easier to maintain.

Makeshifts last the longest.