#!/usr/bin/perl -apnF"monkey"
use Data::Dumper;
print Data::Dumper->Dump([\@F]);