#!/usr/bin/perl -wl

use strict;

	@_ = qw( a b c );
		
	open my $A, '>', "out.txt";
	
	print $A ~~@_;
	print $A scalar @_;