perl将小于n的所有个位数不等于5的素数（素数： 只能被1和本身整除的整数）在屏幕上打印，具体要 求 1）n的具体值由用户输入来确定，且输入提示"Inputa data：”； 2）分行显示，每行最多输出6个数（不使用函数和数组）

在Perl中，你可以通过编写一段程序来实现这个需求。这里是一个简单的步骤描述：

1. 首先，我们需要创建一个检查是否为素数的函数。一个简单的素数测试方法是检查从2到该数平方根之间的所有数字是否能整除它。

sub is_prime {
    my $num = shift;
    return 0 if $num < 2; # 小于2的数不是素数
    for my $i (2 .. sqrt($num)) {
        return 0 if $num % $i == 0;
    }
    return 1; # 如果没有找到因子，它是素数
}

2. 接着，获取用户输入的`n`值，并遍历1到`n`之间的所有数字。

print "Input a data：";
chomp(my $n = <>); # 去掉末尾换行符

for my $i (1..$n) {
    next unless is_prime($i) && $i % 10 != 5; # 素数且个位不等于5
    print "$i ";
    last if $i + 5 > $n || ((i + 1) % 6 == 0); # 每行最多6个数，如果超过则换行
}

print "\n"; # 结束行

3. 这段代码会依次检查每个数字，满足条件的素数会被打印出来，直到达到最大值`n`或每行显示了6个数为止。注意，我们使用`last`关键字提前结束当前循环，当达到限制条件时停止输出。

运行此脚本时，它会按照要求显示符合条件的素数。