#!/usr/bin/perl open DATA, "; chomp @list; print "$_\n" foreach @list;