82c82,85
< 	foreach my $field qw(tty pty pts X other) {
---
> 
> 	my @tmparr = ("tty","pty","pts","X","other");
> 
> 	foreach my $field (@tmparr) {